﻿
Imports System.Windows.Forms
<Serializable()> Public Class PointTool
    Inherits BaseTool


    Public Overrides Sub mouseDown(ByVal sender As Object, ByVal e As AxMapWinGIS._DMapEvents_MouseDownEvent)
        If e.button = 1 Then



            Me.OperShapeProperty = ShapeFactory.getNewPointShape()


            Me.OperShapeProperty.P1Property = Me.DownPointProperty
            Me.OperShapeProperty.plist.Add(Me.DownPointProperty)

            InvokeEndDrawing()
            Me.OperShapeProperty = Nothing

        End If
    End Sub

    Public Overrides Sub mouseDrag(ByVal sender As Object, ByVal e As AxMapWinGIS._DMapEvents_MouseMoveEvent)

    End Sub

    Public Overrides Sub mouseMove(ByVal sender As Object, ByVal e As AxMapWinGIS._DMapEvents_MouseMoveEvent)

    End Sub

    Public Overrides Sub mouseUp(ByVal sender As Object, ByVal e As AxMapWinGIS._DMapEvents_MouseUpEvent)

    End Sub

    Public Overrides Sub setself()

    End Sub

    Public Overrides Sub unSet()

    End Sub

    Public Overrides Sub mouseDblClick(ByVal sender As Object, ByVal e As System.EventArgs)

    End Sub
End Class
